home *** CD-ROM | disk | FTP | other *** search
/ Web Designer 98 (Professional) / WebDesigner 1.0.iso / htmled1 / inp11db16.exe / data.z / potextformat.infile < prev    next >
Encoding:
Internet Message Format  |  1996-10-10  |  1.7 KB
  1. From: WEBPO@harbinger.net
  2. Subject: WebPO Number $poNumber$ for $CompanyName$
  3.  
  4.  
  5. $outvar(devnull)
  6. <!--------------------------------------------------------------------
  7.     po/potextformat.infile - Blend infile used to produce the
  8.                         text version of the WebPO for delivery to the
  9.                         Web based user ordering products.
  10.  
  11.                         Used by po.blend
  12.     
  13.     1996-09-25 RKJ-000    Original version
  14. -->
  15. $endout
  16. Thank you for your business. If you have any questions or problems with this purchase order, please
  17. contact us at $SellerEmail$.
  18.  
  19.  
  20. Send Date:    [$cdate(0,"%m/%d/%Y at %X %Z")]
  21. PO Number:    [$poNumber$]
  22. Company Name:    [$CuName$]
  23. Customer ID:    [$CustomerID$]
  24. Contact:    [$Contact$]
  25. E-mail:    [$email$]
  26. Phone:    [$phone$]
  27. Street Address 1:    [$address1$]
  28. Street Address 2:    [$address2$]
  29. City:    [$City$]
  30. State:    [$State$]
  31. Postal Code:    [$zip$]
  32. Country:    [$country$]
  33. Special Instructions:    [$instructions$]
  34. $set(poItems,0)$set(loop,0)$while($not($equal($ProductCount,$loop)))$if($var(ItemUnits$loop$))$set(aVal,$var(ItemUnits$loop$))$else$$set(aVal,0)$endif$$if($not($equal($aVal,0)))$inc(poItems)$endif$$inc(loop)$endwhile$Number of Items Ordered:    [$poItems$]
  35. $set(poItems,0)$set(loop,0)$set(bigTotal,0)$while($not($equal($ProductCount,$loop)))$if($var(ItemUnits$loop$))$set(aVal,$var(ItemUnits$loop$))$else$$set(aVal,0)$endif$$if($not($equal($aVal,0)))$set(aTotal,$mult($aVal,$var(ItemCost$loop$)))$inc(poItems)
  36. Product Number:    [$poItems$]
  37. Item Code:    [$var(ItemCode$loop$)]
  38. Item Name:    [$var(ItemName$loop$)]
  39. Item Units:    [$aVal$]
  40. Item Cost:    [$var(ItemCost$loop$)]
  41. Item Total:    [$fmt("%.2f",$aTotal$,"double")]  $set(bigTotal,$add($aTotal,$bigTotal)) $endif $inc(loop) $endwhile
  42. Grand Total:    [$fmt("%.2f",$bigTotal$,"double")]
  43.  
  44.